home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / ASTRNOMY / DE118I.ZIP / ACONST.H < prev    next >
Text File  |  1992-05-28  |  8KB  |  224 lines
  1. ; The numbers in this text file are read in by ssystem.exe
  2. ; on startup.  The order of the items must not be changed!
  3. ;
  4. ; Initial solar system state vector
  5. 2440400.50 JD0 Julian date of initial state vector
  6. ; yn0[]
  7.  1.00015500951082782e-4,  phidot /* Lunar librations (Euler angles) */
  8.  6.03343019729665792e-3,  phi
  9.  1.49039876740924137e-5,  thetadot
  10.  3.82393007236771923e-1,  theta
  11. -1.19434270765326686e-4,  psidot
  12.  1.28120436555489181e0,   psi
  13.  3.7085069798210382186e-003, xdot /* Mercury */
  14.  3.6030663368975339466e-001, x
  15.  2.4854958767430945324e-002, ydot
  16. -9.4812876741771684223e-002, y
  17.  1.2929109014677844626e-002, zdot
  18. -8.7466840117233140436e-002, z
  19.  1.1156645711264016669e-002, /* Venus */
  20.  6.0786466491731583464e-001,
  21.  1.5494075513638794325e-002,
  22. -3.5518362463675619232e-001,
  23.  6.2773904546696609267e-003,
  24. -1.9824142909855515515e-001,
  25.  1.6833251020051496668e-002,  /* EMB */
  26.  1.0820747754938311664e-001,
  27.  1.5602036176919105255e-003,
  28. -9.2711110739430602933e-001,
  29.  6.7646174015847273137e-004,
  30. -4.0209347855944090112e-001,
  31.  1.4481919298277924969e-002, /* Mars */
  32. -1.2796408611369531836e-001,
  33.  8.0528538390447499843e-005,
  34. -1.3262618005333617013e+000,
  35. -3.5188931029397090065e-004,
  36. -6.0530808652523961512e-001,
  37.  1.0053452569924098185e-003, /* Jupiter */
  38. -5.3896824544609061333e+000,
  39. -6.5298425191689416643e-003,
  40. -7.7026549518616593034e-001,
  41. -2.8258787532429609536e-003,
  42. -1.9866431165907522014e-001,
  43. -3.1594662504012930114e-003, /* Saturn */
  44.  7.9527768530257360864e+000,
  45.  4.3714634278372622354e-003,
  46.  4.5078822184006553686e+000,
  47.  1.9441395169137103763e-003,
  48.  1.5201955253183338898e+000,
  49.  1.7108310564806817248e-004, /* Uranus */
  50. -1.8278236586353147533e+001,
  51. -3.7646704682815900043e-003,
  52. -9.5764572881482056433e-001,
  53. -1.6519678610257000136e-003,
  54. -1.6132190397271035415e-001,
  55.  2.6225242764289213785e-003, /* Neptune */
  56. -1.6367191358770888335e+001,
  57. -1.5277473123858904045e-003,
  58. -2.3760896725373076342e+001,
  59. -6.9183197562182804864e-004,
  60. -9.3213866179497290101e+000,
  61.  2.8177758090360373050e-004, /* Pluto */
  62. -3.0447680255169362534e+001,
  63. -3.1469590804946202045e-003,
  64. -5.3177934960261367037e-001,
  65. -1.0794238049289112837e-003,
  66.  9.0596584886274922101e+000,
  67.  5.98752118417335956e-4,  /* MOON */
  68. -8.35703164195952601e-4,
  69. -1.74153713527242722e-4,
  70. -1.98543915768166071e-3,
  71. -8.84771962437116281e-5,
  72. -1.08326877048661754e-3,
  73. -2.8369446340813151639e-007, /* Sun */
  74.  4.5144118714356666407e-003,
  75.  5.1811944086463255444e-006,
  76.  7.2282841152065867346e-004,
  77.  2.2306588340621263489e-006,
  78.  2.4659100492567986271e-004, /* Asteroid states follow */
  79. ; Test state vector
  80. 2440800.50 JD1 Julian date of test state vector
  81. ;  yn1[]
  82.  1.19798509852348462e-4,  /* Librations */
  83.  3.26749396278042651e-2,
  84. -6.85863913398886621e-5,
  85.  3.85255316277713118e-1,
  86. -9.87921606265917336e-5,
  87.  1.25594900035445747e0,
  88.  1.1640059959070938016e-002,  /* Mercury */
  89. -3.4350297408563828055e-001,
  90. -1.7964875644231269124e-002,
  91. -2.5118910315168408963e-001,
  92. -1.0817311005210173814e-002,
  93. -9.9170891227838064646e-002,
  94.  1.8597282203783061216e-002, /* Venus */
  95. -2.6914630075961837156e-001,
  96. -6.5864799228651037249e-003,
  97. -6.1655661757510340864e-001,
  98. -4.1428517490915759141e-003,
  99. -2.6070731202257053265e-001,
  100.  1.3083581197550196016e-002, /* EMB */
  101.  6.4260215465460413745e-001,
  102.  9.8846107560980890857e-003,
  103. -7.2083597294516633464e-001,
  104.  4.2862797207098424858e-003,
  105. -3.1263839868006851566e-001,
  106. -1.0289202815795734684e-002, /* Mars */
  107. -1.0394941428468679346e+000,
  108. -7.0723334989418045152e-003,
  109.  1.1522403836312279294e+000,
  110. -2.9703138309275424941e-003,
  111.  5.5677401157133424433e-001,
  112.  4.6228653666202124358e-003,  /* Jupiter */
  113. -4.2373615722355993645e+000,
  114. -5.0555918692615562352e-003,
  115. -3.1464733091277224306e+000,
  116. -2.2818455722493645242e-003,
  117. -1.2462241659031373286e+000,
  118. -4.2556740044874090445e-003,  /* Saturn */
  119.  6.4633979534971069954e+000,
  120.  3.5633047172379600052e-003,
  121.  6.1037564142437140792e+000,
  122.  1.6573768541155527860e-003,
  123.  2.2444618449141959815e+000,
  124.  5.2274776790945661154e-004, /* Uranus */
  125. -1.8139340904007687965e+001,
  126. -3.7317457890160985748e-003,
  127. -2.4578888288247007605e+000,
  128. -1.6425078479167742140e-003,
  129. -8.2063943185823257564e-001,
  130.  2.6898588576179062356e-003, /* Neptune */
  131. -1.5304564931392374665e+001,
  132. -1.4254385368896515149e-003,
  133. -2.4351618762495032811e+001,
  134. -6.5161737589378315099e-004,
  135. -9.5901150170962550989e+000,
  136.  3.9518201228036738355e-004, /* Pluto */
  137. -3.0312344985766555864e+001,
  138. -3.1426251869952901448e-003,
  139. -1.7898553889579568107e+000,
  140. -1.1124350707669052540e-003,
  141.  8.6212535443336042115e+000,
  142. -4.58408893102436927e-4, /* MOON */
  143. -1.60130208907259920e-3,
  144. -2.78697065392994499e-4,
  145.  1.95720839700677492e-3,
  146. -1.70697259101564644e-4,
  147.  9.68483037769266028e-4,
  148. -3.4432210186490844452e-006, /* Sun */
  149.  3.7798301065137354516e-003,
  150.  4.0360524289263751236e-006,
  151.  2.6305582306528893588e-003,
  152.  1.8100237472517860139e-006,
  153.  1.0818800652186113487e-003,
  154. 173.144632720536344565  C  Speed of light, au/d ;2.99792458e5  CLIGHT
  155. 8.13005869999999999376E1 EMRAT /* Earth's mass divided by Moon's mass */
  156. 0.01720209895 KG /* Gaussian gravitational constant */
  157. ; masses (GM values) of all objects
  158. ; GMs[]
  159.  0.0,  /*place holder for libration */
  160.  4.91254745145081175785E-11, /* Mercury */
  161.  7.24345620963276523095E-10, /* Venus */
  162.  8.88769273403302327042E-10, /* Earth */
  163.  9.54952894222405763492E-11, /* Mars */
  164.  2.82534210344592625472E-7, /* Jupiter */
  165.  8.45946850483065929285E-8, /* Saturn */
  166.  1.28881623813803488851E-8, /* Uranus */
  167.  1.53211248128427618918E-8, /* Neptune */
  168.  2.27624775186369921644E-12, /* Pluto */
  169.  1.09318924524284471369E-11, /* Moon */
  170.  2.95912208285591102582E-4, /* Sun */
  171.  1.746e-13, /* Ceres */
  172.  3.2e-14,   /* Pallas */
  173.  4.08e-14,  /* Vesta */
  174.  1.6e-15,   /* Iris */
  175.  2.6e-15    /* Bamberga */
  176. 1.4959787066e11 AU /* Astronomical unit in meters */
  177. 6.96e5 RADS /* Radius of the Sun, kilometers */
  178. 1738.0 RADM /* Radius of the Moon (AM is the value actually used) */
  179. 6378.14 RADE /* Radius of the Earth (AE is the value actually used) */
  180.  4.26352325064817808471E-5 AE /* equatorial radius of Earth, in au */
  181. 1.08263e-3, Je[] /* J2E */
  182. -2.54e-6,   /* J3E */
  183. -1.61e-6    /* J4E */
  184. 1.16178124180819699985E-5 AM /* equatorial radius of Moon, in au */
  185. 2.02150907893e-4, Jm[] /* J2M */
  186. 1.21260448837e-5,  /* J3M */
  187. -1.45383007072e-7, /* J4M */
  188.  2.230351309e-5,  Cnm[] /* C22 */
  189.  3.07082741328e-5, /* C31 */
  190.  4.88840471683e-6, /* C32 */
  191.  1.43603108489e-6, /* C33 */
  192. -7.17780149806e-6, /* C41 */
  193. -1.43951838385e-6, /* C42 */
  194. -8.54788154819e-8, /* C43 */
  195. -1.5490389313e-7   /* C44 */
  196.  0.0,          Snm[]    /* S22 */
  197.  5.61066891941e-6, /* S31 */
  198.  1.68743052295e-6, /* S32 */
  199. -3.343544677e-7,   /* S33 */
  200.  2.94743374914e-6, /* S41 */
  201. -2.8843721272e-6,  /* S42 */
  202. -7.88967312839e-7, /* S43 */
  203.  5.6404155572e-8   /* S44 */
  204. 2.22160557154e-2 K2M
  205. 0.30 LOVENO
  206. 4.0700012e-2 PHASE
  207. ; synodic period of the moon
  208.  2.29971502189818919e-1 PSLP1 /* DE118 initial psidot: */
  209.  2.732158222801637949485e1 /* PSLPI = 2 pi / PSLP1 = period in days */
  210.  2.73215820789337158203125e1 PSLPIA  /* PSLPA + PSLPB = PSLPI */
  211.  1.490826636745416323896386e-7 PSLPIB
  212.  2440400.5  JDEPOCH
  213.  6.31686773468e-4 LBET /* (C-A)/B */
  214.  2.28022183594e-4 LGAM /* (B-A)/C */
  215. ; LGAMBET = (LGAMd - LBETd)/(1.0-LBETd*LGAMd);
  216. ; CMR2 = CMRSQ*AMd*AMd;
  217. ; BMR2 = CMRSQ*AMd*AMd*(1.0 + LGAMd)/(1.0 + LBETd);
  218. ; AMR2 = CMRSQ*AMd*AMd*(1.0 - LBETd * LGAMd)/(1.0 + LBETd);
  219.  -4.03664648017289733947E-4 LGAMBET
  220.  0.3906895261319410091 CMRSQ
  221.  5.2732758299330413853212309E-11 CMR2
  222.  5.2711485389894113965222358E-11 BMR2
  223.  5.2699461151199766018387453E-11 AMR2
  224.